#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $who;
my %addressbook = (
  "Paddy Malone" => {
    address => "23 Blue Jay Way",
    phone   => "404-6599",
    friends => [ "Baba O'Reilly", "Mick Flaherty" ]
  }
);
my @friends = @{$addressbook{"Paddy Malone"}{friends}};
foreach my $item  (@friends) {
  print "$item\n";
}
